home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ MSOXP User Places 3.xpl < prev    next >
Text File  |  2001-12-30  |  2KB  |  80 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="4"
  3. "COUNT"="2"
  4. "UIPATH"="Program Options\Microsoft Office\MS Office XP\Open/Save Dialog"
  5. "NAME"="User Place #3"
  6. "VERSION"="1.05"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Place Name"
  9. "TEXT 2"="Exact Path"
  10. "DESCRIPTION 1"="Office XP has an "Places Bar" on the left side of its Open/Save dialog."
  11. "DESCRIPTION 2"="You can also add you own folders to this bar. First enter a name for the folder (in "Name"), then enter the exact path to this item (in "Path")."
  12. "DESCRIPTION 3"="NOTE: To remove a user-defined value, clear both the "Name" and the "Path" field!"
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"="Thanks to Nat Gildersleeve [natgild@netptc.net] for the left vs. right bug notice!"
  17.  
  18.  
  19. sP1="HKCU\Software\Microsoft\Office\10.0\Common\Open Find\Places\UserDefinedPlaces\Place3\"
  20.  
  21.  
  22. sPCheck="HKCU\Software\Microsoft\Office\10.0\"
  23. Sub Plugin_Initialize 
  24. if RegPathExists(sPCheck) then
  25.    s=RegReadValue(sP1+"Name")
  26.    Call SetUIElement(1,s)
  27.  
  28.    s=RegReadValue(sP1+"Path")
  29.    Call SetUIElement(2,s)
  30. else
  31.  Call Disable()
  32. end if
  33. End Sub
  34.  
  35. Sub Plugin_CheckData(ElementIndex)
  36. End Sub
  37.  
  38. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  39.  s=GetUIElement(1)
  40.  s2=GetUIElement(2)
  41.  Call SetIt(sP1,s,s2)
  42.  
  43.  
  44. End Sub
  45.  
  46. Sub SetIt(Path,Name,Folder)
  47.  if len(Name)>0 then
  48.     'set it
  49.     Call RegWriteValue(Path+"Name",Name,1)    
  50.     Call RegWriteValue(Path+"Path",Folder,1)
  51.  
  52.     Call Logoff
  53.  else
  54.     'remove it....
  55.     s=RegReadValue(Path+"Name")
  56.     if IsEmpty(s)=false then
  57.        'value set... remove it!
  58.        cnt=RegEnumValues(Path)
  59.  
  60.        for i=1 to cnt  
  61.            sName=RegEnumElement(i)
  62.            Call RegDeleteValue(Path+sName) 
  63.        next 
  64.  
  65.        Call RegDeletePath(path)
  66.  
  67.        Call MsgInformation("User defined place removed!")
  68.        Call Logoff
  69.     end if
  70.  end if
  71.  
  72. end sub
  73.  
  74.  
  75.  
  76.  
  77.  
  78. Sub Plugin_Terminate 
  79. End Sub
  80.